home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / term / ncomm30.lha / NComm / Scripts / clock.script next >
Text File  |  1993-04-24  |  275b  |  12 lines
  1. ;NComm script that demonstrates the STRPART function
  2.  
  3. SET $stoptime = "14:00:00"
  4.  
  5. REPEAT
  6.     SET $varin = $date
  7.     STRPART $varout "11" "8" $varin    ;Numbers without quotes are also OK
  8.     MESSAGE $varout"\r"
  9.     DELAY 1
  10. UNTIL $varout == $stoptime
  11. MESSAGE "\t --- Reached StopTime\n";
  12.